home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 10, No. 05 (1989-05)(MicroSPARC)(Side A)[a].zip
/
Nibble Volume 10, No. 05 (1989-05)(MicroSPARC)(Side A)[a].po
/
RESET.DEMO.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
2KB
|
34 lines
10 REM **********************
20 REM * RESET.DEMO *
30 REM * BY KENN SCRIBNER *
40 REM * COPYRIGHT (C) 1989 *
50 REM * MICROSPARC, INC. *
60 REM * CONCORD, MA 01742 *
70 REM **********************
80 HOME : PRINT CHR$(21): GOSUB 340
90 ONERR GOTO 180
100 PRINT CHR$(4);"BRUN RESET"
110 POKE 216,0: CALL SV: REM ***INITIALIZE RESET VECTOR***
120 GOSUB 340: PRINT : VTAB 12: PRINT "YOUR RESET VECTOR HAS NOW BEEN CHANGED!"
130 RE = 190: GOSUB 150
140 GOTO 140: REM ***INFINITE LOOP, PRESS RESET***
150 LNUM = RE: IF LNUM <0 THEN LNUM = (256 *256) +LNUM
160 VTAB 14: PRINT TAB( 5);"YOU'LL NOW EXECUTE LINE #";LNUM: PRINT TAB( 9);"WHEN YOU PRESS RESET."
170 RETURN
180 GOSUB 340: PRINT "CANNOT FIND RESET. INSERT DISK AND TRY AGAIN": END
190 RE = 230: REM ***CHANGE LINE TO 5000 ON RESET***
200 GOSUB 340: VTAB 12: PRINT "NOW WE'LL CHANGE THE RESET LINE NUMBER."
210 GOSUB 150
220 GOTO 220: REM ***INFINITE LOOP, PRESS RESET***
230 GOSUB 340: VTAB 12: PRINT TAB( 4);"NOW RESET DURING A GET STATEMENT."
240 RE = 270: REM ***CHANGE RESET LINE NUMBER AGAIN***
250 GOSUB 150
260 PRINT : PRINT "GO AHEAD AND RESET YOUR COMPUTER NOW...";: GET A$: GOTO 260
270 GOSUB 340: VTAB 12: PRINT TAB( 5);"NOW RESET AN INPUT STATEMENT."
280 RE = 310: REM ***CHANGE RESET LINE NUMBER TO 310***
290 GOSUB 150
300 PRINT : HTAB (4): INPUT "TYPE SOMETHING IN, THEN RESET...";A$: GOTO 300
310 GOSUB 340: VTAB 12: PRINT " NOW I'LL DISABLE RESET MAGIC AND QUIT."
320 VTAB 23: PRINT "PRESS RETURN TO CONTINUE ";: GET A$: PRINT A$;: CALL KV
330 HOME : VTAB 23: END
340 HOME : PRINT "RESET MAGIC BY KENN SCRIBNER": PRINT "(C) 1989 MICROSPARC, INC": RETURN